9990 END:***********************
9991 ....** BASIC-WINDOWS      *                 ** (W) 1993 BY MADROM *
9992 ....** (C) BY NOBODY..... *                 ***********************
9993 BENOETIGTE VARIBALEN : (WINDOW)         GROESSE      : X,Y=QX%,QY%
9994 BREITE, HOEHE: B,H=QB%,QH%              FARBE        : QF%
9995 BENOETIGTE VARIABLEN : (TEXT-WIN.)      IM WINDOW,REVERS   : QT%,QR%
9996 TEXT AUS ARRAYS NR.: QA%                BENOETIGTE ARRAYS  : QT$()
9997 :
10000 REM * SETZE VIRABLEN                        ****************
10001 FOR Q=1TO38:Q1$=Q1$+"[192]":Q2$=Q2$+" ":NEXT:RETURN
10002 REM * ZEICHNE WINDOW                        ****************
10004 POKE211,QX%:POKE214,QY%:SYS58640:QY=QY%+1
10006 Q2%=QA%:POKE 646,QF%
10008 PRINT"[176]"LEFT$(Q1$,QB%)"[174]"
10010 FOR Q1 = QY% TO QY%+QH%-1
10015 PRINTSPC(QX%);
10020 POKE 646,QF%:PRINT"[221]";
10024 POKE 646,QT%
10025 PRINTLEFT$(QT$(QA%),QB%);
10026 IF QB%-LEN(QT$(QA%))<1 THEN 10030
10027 PRINTLEFT$(Q2$,QB%-LEN(QT$(QA%)));
10030 POKE 646,QF%:PRINT"[221]"
10031 QA%=QA%+1:NEXT
10032 PRINTSPC(QX%)"[173]"LEFT$(Q1$,QB%)"[189]"
10100 REM * AUSWAHL-MENUE                         ***************
10102 POKE211,QX%+1:POKE214,QY:SYS58640
10104 POKE646,QR%
10105 PRINT""LEFT$(QT$(Q2%),QB%);
10106 IF QB%-LEN(QT$(Q2%))<1 THEN 10110
10107 PRINT""LEFT$(Q2$,QB%-LEN(QT$(Q2%)))
10110 GETQZ$:IF QZ$="" THEN10110
10111 IF QZ$=""THEN GOSUB10230:Q2%=Q2%+1:QY=QY+1
10112 IF QZ$="[145]"THEN GOSUB10230:Q2%=Q2%-1:QY=QY-1
10117 IF QZ$=CHR$(13)THEN QA%=Q3%:RETURN
10200 IF QY>QY%+QH% THEN Q2%=Q2%-QH%:QY=QY%+1
10202 IF QY=QY% THEN Q2%=QA%-1:QY=QY+QH%
10229 GOTO10102
10230 POKE211,QX%+1:POKE214,QY:SYS58640
10232 POKE646,QT%
10233 PRINT"[146]"LEFT$(QT$(Q2%),QB%);
10234 IF QB%-LEN(QT$(Q2%))<1 THEN RETURN
10235 PRINTLEFT$(Q2$,QB%-LEN(QT$(Q2%)))
10236 RETURN